Pensieve Header: The uBCH formula in the blobs quotient, perturbatively.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\w-Computations"];
<< "Playground Program.m"

{RR[1,3], RR[2,3]}

ToDegree[6, R[1,3]**R[2,3]] // PCollect

ToDegree[6, R[3,1]**R[2,3]] // PCollect

ToDegree[6, R[3,1]**R[3,2]] // PCollect

ToDegree[3, Expand[2RR[1,3]] ** Expand[2 RR[1,3]]] // PCollect

ToDegree[3, Expand[2RR[1,3]] ** Expand[2 RR[2,3]]] // PCollect

ToDegree[6, Expand[2RR[1,3]] ** Expand[2 RR[2,3]]] // PCollect